home *** CD-ROM | disk | FTP | other *** search
- VERSION 2.00
- Begin Form frmDocument
- Caption = "<1> Untitled"
- ClientHeight = 4020
- ClientLeft = 1095
- ClientTop = 1485
- ClientWidth = 7365
- Height = 4425
- Left = 1035
- LinkTopic = "Form1"
- MDIChild = -1 'True
- ScaleHeight = 4020
- ScaleWidth = 7365
- Top = 1140
- Width = 7485
- Begin TextBox txtDocument
- Height = 3015
- Left = 0
- MultiLine = -1 'True
- ScrollBars = 3 'Both
- TabIndex = 0
- Top = 0
- Width = 5295
- End
- Option Explicit
- Sub Form_Resize ()
- Me.txtDocument.Height = Me.ScaleHeight
- Me.txtDocument.Width = Me.ScaleWidth
- End Sub
-